home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_135.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  531 b   |  31 lines
  1. property spriteNum, mychan, mdown, hilite
  2. global onlist
  3.  
  4. on beginSprite me
  5.   mychan = spriteNum - 266
  6.   onlist[mychan] = 1
  7.   sprite(spriteNum).hilite = 1
  8.   mdown = 0
  9. end
  10.  
  11. on mouseDown me
  12.   mdown = 1
  13. end
  14.  
  15. on mouseUpOutSide me
  16.   mdown = 0
  17. end
  18.  
  19. on mouseUp me
  20.   if mdown then
  21.     onlist[mychan] = not onlist[mychan]
  22.     sprite(spriteNum).hilite = onlist[mychan]
  23.     if hilite then
  24.       sprite(spriteNum).member = member("channelon")
  25.     else
  26.       sprite(spriteNum).member = member("channeloff")
  27.     end if
  28.     mdown = 0
  29.   end if
  30. end
  31.